* Import ENH 1999-1
* This file converts the files from the ENH 1999-1 into Stata format. 
* Inputs: Files in Data/Original/encuestas de hogares/ENH/1999/1/h103mz99.P99
* Outputs: Files in Data/Importable/ENH/1999/TRIM 1

clear all
version 13.1

* Change
project, doinfo   
local master "`r(pdir)'"
local doname "`r(dofile)'" 

cap mkdir "`master'/Data/Importable/ENH/1999"
cap mkdir "`master'/Data/Importable/ENH/1999/TRIM 1"
cd "../../Data/Original/encuestas de hogares/ENH/1999"
cd eht19991

* Registro tipo 10 - Caracteristicas generales
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
parentesco 30-31 sexo 32 edad 33-34 estado_civil 35 str municipio_nacimiento 36-38 str departamento_nacimiento 39-40  cabecera_nacimiento 41 str mpio_padres 42-44 str depto_padres 45-46 cabecera_padres 47 tiempo_residencia_tvida 48 tiempo_residencia 49-50 str mpio_vivia_antes 51-53 str depto_vivia_antes 54-55 cabecera_vivia_antes 56 lee_escribe 57 asiste_escuela 58 colegio_oficial 59 ultimo_grado_estudios 60-62 ///
area 144-145 fex 146-149 ///
if tipo_registro==10 using h103mz99.P99 , clear

save "`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_general.dta" , replace
project, creates("`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_general.dta")

* Registro tipo 50 - Fuerza de trabajo
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
actividad 30 trabajo_mas 31 trabajo_familia 32 no_trabajo_empleo 33 razon_ausente 34 busco_ultima 35 ha_buscado 36 no_ha_buscado_t 37-38 str  ing_trabajo 39-48 str ing_intereses 49-58 ing_arriendos 59-68 ing_pension 69-78 ing_ayudas 79-88 ing_otros 89-98 ///
area 144-145 fex 146-149 ///
if tipo_registro==50 using h103mz99.P99 , clear

save "`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_fuerza_trabajo.dta" , replace
project, creates("`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_fuerza_trabajo.dta")

* Registro tipo 60 - Ocupados
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
trabajo_permanente 30 horas_ultima 31-32 horas_semana 33-34 quiere_trabajar_mas 35 motivo_trab_mas 36 ocupacion 37-38 actividad_empresa 39-40 tipo_trabajador 41 salario 42-51 salario_period 52 salario_alimentos 53-62 salario_vivienda 63-72 ganancia_mes 73-82 ing_intereses 83-92 ing_arriendos 93-102 ing_pensiones 103-112 ing_ayudas 113-122 ing_otros 123-132 afiliado_salud 133 afiliado_pension 134 ///
area 144-145 fex 146-149 ///
if tipo_registro==60 using h103mz99.P99 , clear
save "`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_ocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_ocupados.dta")

* Registro tipo 70 - Desocupados
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
tiempo_buscando 30-31 buscado_pte 32 buscado_tcompleto 33 buscado_tipo 34 buscado_ocupacion 35-36 buscado_actividad 37-38 buscado_primeravez 39 tiempo_dejo_trabajar 40-41 trabajoo_ocupacion 42-43 trabajoo_actividad 44-45 trabajoo_tipo 46 str ing_trabajo 47-56 ing_intereses 57-66 ing_arriendos 67-76 ing_pensiones 77-86 ing_ayudas 87-96 ing_otros 97-106 ///
area 144-145 fex 146-149 ///
if tipo_registro==70 using h103mz99.P99 , clear
save "`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_desocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_desocupados.dta")

* Registro tipo 80 - Inactivos
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
segunda_actividad 30 tiempo_inactivo 31 actividad_antes 32-33 tiempo_trabajando 34-35 motivo_dejo_trabajo 36 ha_buscado 37 cuando_busco 38-39 motivo_no_buscado 40 ///
area 144-145 fex 146-149 ///
if tipo_registro==80 using h103mz99.P99 , clear
save "`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_inactivos.dta" , replace
project, creates("`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_inactivos.dta")

* Registro tipo 90 - Gasto servicios 1
clear 
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
d_transporte_bus 28 transporte_bus 29-38 d_transporte_metro 39 str transporte_metro 40-49 d_transporte_taxi 50 str transporte_taxi 51-60  d_comida_fuera 61 comida_fuera 62-71 d_lavado 72 lavado 73-82 ///
area 144-145 fex 146-149 ///
if tipo_registro==90 using h103mz99.P99 , clear
save "`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_gastoser1.dta" , replace
project, creates("`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_gastoser1.dta")

* Registro tipo 91 - Gasto servicios 2
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27   ///
d_cine 28 cine 29-38 d_corte_pelo 39 corte_pelo 40-49 ///
area 144-145 fex 146-149 ///
if tipo_registro==91 using h103mz99.P99 , clear
save "`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_gastoser2.dta" , replace
project, creates("`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_gastoser2.dta")

* Registro tipo 92 - Gasto servicios 3
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27   ///
d_telefono 28 telefono 29-38 d_celular 39 celular 40-49 d_antena 50 str antena 51-60 ///
area 144-145 fex 146-149 ///
if tipo_registro==92 using h103mz99.P99 , clear
save "`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_gastoser3.dta" , replace
project, creates("`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_gastoser3.dta")

* Registro tipo 94 - Gasto servicios 4
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27   ///
d_television 28 television 29-38 d_internet 39 internet 40-49 d_mantenimiento 50 str mantenimiento 51-60 /// 
area 144-145 fex 146-149 ///
if tipo_registro==93 using h103mz99.P99 , clear
save "`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_gastoser4.dta" , replace
project, creates("`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_gastoser4.dta")


* Registro tipo 94 - Gasto servicios 5
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27   ///
d_pasajes 28 pasajes 29-38 d_hoteles 39 hoteles 40-49 ///
area 144-145 fex 146-149 ///
if tipo_registro==94 using h103mz99.P99 , clear
save "`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_gastoser5.dta" , replace
project, creates("`master'/Data/Importable/ENH/1999/TRIM 1/1999_1_gastoser5.dta")


